home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / lang / false11.lha / False_v1.1 / src / fac.f < prev    next >
Text File  |  1992-09-02  |  184b  |  11 lines
  1. { faculty program in false! }
  2.  
  3. [$1=$[\%1\]?~[$1-f;!*]?]f:          { fac() in false }
  4.  
  5. "calculate the faculty of [1..8]: "
  6. ß^ß'0-$$0>~\8>|$
  7. "result: "
  8. ~[\f;!.]?
  9. ["illegal input!"]?"
  10. "
  11.